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DIRECTORY 

ImageDefs: FROM "imagedefs", 
Mopcodes: FROM "mopcodes", 

AltoDefs: FROM "altodefs", 
SegmentDefs: FROM "segmentdefs" , 
ControlDefs: FROM "controldef s" ; 

DEFINITIONS FROM AltoDefs, SegmentDefs, ControlDefs; 

WartDefs: DEFINITIONS « 
BEGIN 

BootTableLimit: INTEGER » 17777B; 

Bootlndex: TYPE = POINTER [0 . .BootTableLimit] TO BootScriptEntry ; 

NullBootlndex: Bootlndex » LAST[BootIndex] ; 

SegmentBootlndex: TYPE « POINTER [0. .BootTableLimit) TO Segment BootScriptEntry; 

BootScriptHeader: TYPE ■ MACHINE DEPENDENT RECORD [ 

tablebase: [0. . 177777B], -- origin of the script table 

av.gft.sd: POINTER, 

f f vmp , 1 f vmp : [0 . . Al toDef s . MaxVMPage] . 

loadState: SegmentBootlndex, 

filll: [0. .7], 

initLoadState: SegmentBootlndex, 

fill2: [0. .7], 

bed: SegmentBootlndex, 

fill3: [0. .7], 

nub» user: Global FrameHandle]; — who to start 

BootCommand: TYPE = {bcO, bcl. bc2, bc3, bc4, bc5. bc6, bc7}; 

BootScriptEntry: TYPE » MACHINE DEPENDENT RECORD [ 
body: SELECT option: ♦ FROM 
Command => [ 

command: BootCommand, 

fill: [0..1777B]]. 
SwapOutCode «> [ 

fill: Bootlndex. 

frame: GlobalFrameHandle], 
Segment => [ 

filll: [0..777B]. 

data: BOOLEAN, 

access: SegmentDef s.AccessOptions, 

base: CARDINAL, 

pages: [1 . .MaxVMPage+l], 

vmpage: [0 . .MaxVMPage], 

handle: FileSegmentHandle], 
CodeLink «> [ 

codeseg: SegmentBootlndex, 

frame: GlobalFrameHandle], 
Unlock => [ 

seg: SegmentBootlndex]. 
OpenFile *> [ 

fill: Bootlndex], 
Stop => [ 

fill: Bootlndex], 
ENDCASE]; 

END. 


